+JJJJ ?> / X5 l>ҭōŠԠΠӍҠͭҭōΠĠΠΠǠǠǠ ӭ ፪  ҭ  ؠ؍ԿӍѠč Ԡ٠Աĩ٠ ؠԲҠҠؠؠ 歍ؠ àԲٍ٠àԱԿԍѠԿ 2270W:Dhlen Sie ";;W$:W(W$):W1WO2270DW:VTL   / .. . 8     `h` l֦L  ' +:'+@HPW_hHh@Hpu**ILLEGAPROGRA LENGT BYTESAVED***NSAVED PROGRA IN US**DOUBLLINE NOTOO FATOO BI CONT? Y/ILLEGA LIN > 239 ıRPMLK----V Ɛfffffd d' ۦPQ A \`ݭ`0&:"PQ i hh ܔLȱ0:8`` `8喨嗪ʘ ^8^Ɯ8^ƚ`ikjlkmln`kP ȱkQ`keׅklץnlmkeׅmnsmtn`8u`H hHH 1H \h \h Дn m `Lmg^h_^4^ ܔ hh`8e^^e_ȑ^^_^_ȐՈ^e^^_` Q&P*QP & &ePPeQQ )ePPQ`PQ&u0؈` FJJJJ) \ۥ` \۩ \۩ \i- < I׈k Д Д㥜ݥklа`k`׈Hkhk`8iׅkjl <8 ɠ ߭ 8 ";:A$::A$"<"1850NA$" "18602XLISF1DA:DD$(LI1)DD$(LI):DT$(LI1)DT$$"j"155034,0:0 _____[nderung______::MT$(1)"[ndern eines Datensatzes":MT$(2)"L|schen eines Datensatzes":MT$(3)"DISKETTE":MT$(4)"NEUEINGABE":MT$(5)"AUSGABE":MT$(6)"ENDE"MU$"[NDERUNG":MA6:2990A3ĴA1900,1830:1780 ؠؠ ԠƍԠ Ԡð Ġ翍ѠԠ ðĠ٠翍ŠԠ ð Ӎ占ؠñ ٍ٠ Ġ 占ؠī٠ΰΰ Рĩ ͍ 퍪 殍 àƠ ñĠ  ȠǠ ҍ ǠӠ ˡ 䍪 כֿ ㍠IJĭ ŠȠ ㍠Ӡ 硍  Ң 썪 卪  ҠР̠ 翍àԠ čҠԍ 卪 㿍ıĭ РŠȠ 翍àİ򍍪 Ġà 䍠àԠ Ġ àҠ àī ҠàҠĠҠ Ҡԍȫ占Ҡԍ 퍪 ؠİؠ 򭍠ҠԠ ᭍ؠ ؠ ؠРؠ Ҡ 䍠ؠ ؠ翍̠Ѝ  䍪 宮àӸ ҍӶؠ̍ȍ ӷà̍ ӸàӍŠӴ ҽӹӍԠƍ̬؍؍̠ӱ Ӳ̍ȍѠӹ ӳӍ ȭ̭ Ӵ̠̠̍ȍ ȭ̭ Ӵ̠̠̍ȍ ӵÍ̍à̍؍ȍàȍ Ǡ ı Рӱ ̠ؠƍȠؠƍ ̠ؠƍȠؠ ̠ؠȠؠ ̠ؠȠؠ Ӡؠ čӱؠӱ̬؍̬؍  Daten berechnen (J/N)? ";A$:A$"<"2550d$2 A$"j"A$"J"B0$DD$(1):B1$DD$(DA):B01:B1DA:2670$< :"Geben Sie das 1.Datum der Berechnung ein: ";B0$:"Geben Sie das letzte Datum der Berechnung ein: ";B1$$F B00:I1DA:DD$(I)B0$B0I:IDA %P len Sparten wollen Sie rechnen (A=Alle)? ";A$:A$"<"ıh# A$"A"A$"a"BADS:I1DS:BS(I)I::2600# BA(A$):BA1BADS2550# :"Geben Sie nun die zu berechnenden Sparten ein:"# I1BA:I;". Sparte: ";:"";BS(I):I)$( :"Wollen Sie alle=======#=====================================#==========#===========";:b" -----Berechnung----" I115:BE(I)0:BS(I)0:I" ::::1:"Berechnung einzelner Summen":::34,2" BI1DS:" ";BI;" ";DS$(BI):BI::34,DS37# DS4:"Mit wievie38(DT$(I)));:(DG$(I))0ĺ11);R! (" "(DG$(I),(DG$(I))1),10)Y! Io! DR1ĺD$"PR#3":! :"Bitte dr}cken Sie eine Taste ";:A$:H" "DATUM SPARTE BEMERKUNG GUTSCHRIFT LASTSCHRIFT========#===den (J/N)? ";A$:DR0:A$"<"ıK ` A$"J"A$"j"DR1:D$"PR#1":" ":2500x j I1DA:(I1)20((I1)20)DR0İ2490 t BADS2450 ~ FL0:II1BA:BS(II)DS(I)FL1 II:FL02470$! DD$(I);9(DD$(I)));DS$(DS(I));11(DS$(DS(I))));DT$(I);390!$ BA(A$):BA1BADS2310G. 21:EI1DS:EI;"=";DS$(EI),:EId8 19::EI179:"_";:EIB 4::"Geben Sie nun die auszugebenden Sparten ein :"L I1BA:I;". Sparte: ";:"";BS(I):I V "Soll die ]bersicht auf den Drucker ausgegeben wer + BERECHNUNG":29900A3ĴA2300,2510:2250MA21080,1500,1780,2960g -----]bersicht----- :::1:"]bersicht ausgeben":: "Wieviele Sparten wollen Sie ausgeben (A=Alle)? ";A$:A$"<"ı A$"A"A$"a"BADS:I1DS:BS(I)I::2$"j"A$"J"2220FA$"J"A$"j"SASF1:SK2030,2090,2140,2180Lf _____Ausgabe_______::MT$(1)"]bersicht ausgeben":MT$(2)"Summen berechnen":MT$(3)"DISKETTE":MT$(4)"NEUEINGABE":MT$(5)"[NDERUNG":MT$(6)"ENDE"MA6:MU$"AUSGABEI:2200FSF0ĺ"N i c h t s g e f u n d e n !":W11000:W:1970:3:"DATUM:"18)DD$(SF):6:"SPARTE:"18)DS$(DS(SF)):9:"BEMERKUNG:"18)DT$(SF):12:"GELDBETRAG: "18)(DG$(SF))16:"Wollen Sie weitersuchen (J/N)? ";A$:A$"N"A$"n"AAA$"<"1970&RAA(AA$):AA422120^\SF0:SISADA:(DT$(SI),AA)(AA$,AA)SFSI:SIDAlfSI:2200p +++++Geldbetrag++++z"Geben Sie den Geldbetrag ein : ";AA$:AA$"<"1970AA(AA$):SF0:SISADA:(DG$(SI))(AA)SFSI:SIDASI;" - ";DS$(SI):SI:Y23:"Geben Sie die Nummer der Sparte ein : ";AA$:AA$"<"1970z AA(AA$):AA1AA(DS)2070*SF0:SISADA:DS(SI)(AA)SFSI:SIDA4SI:2200> +++++Bemerkung+++++ H5:"Geben Sie die Bemerkung ein :":"";AA$:A$"<"ġ:1780+SK(A$):SK1SK41980N:SA1:SK2010,2050,2110,2160h +++++Datum+++++++++"Geben Sie das Datum ein : ";AA$:AA$"<"1970SF0:SISADA:DD$(SI)AA$SFSI:SIDASI:2200 +++++Sparte++++++++ SI1DS:SASF:FL1:1600:FL0:DAADA:7 =====Suchen========:3:"Nach welchem Kriterium soll der Datensatz gesucht werden ?"::"1 - DATUM":"2 - SPARTE":"3 - BEMERKUNG":"4 - GELDBETRAG"10:"Geben Sie das gew}nschte Kriterium (1-4) ein : ";A$::(LI):DG$(LI1)DG$(LI):DS(LI1)DS(LI):LI:DADA1>b34,0:Xl -----[ndern--------v:::1:"[ndern eines Datensatzes":::34,21960: Suchen17:"[ndern des Datensatzes mit ";:A$::A$"<"1920A$" "1930ADADA:D\L   2  . . . 8    .. `1500,2250,2960'&-----L|schen-------[0:::1:"L|schen eines Datensatzes":::34,2n:1960: SUCHEND17:"L|schen des Datensatzes mit ";:A$::A$"<"1850NA$" "1860&XLISF1DA:DD$(LI1)DD$(LI):DT$(LI1)DT$(LI):DG$(LI 34,0:%_____[nderung______::MT$(1)"[ndern eines Datensatzes":MT$(2)"L|schen eines Datensatzes":MT$(3)"DISKETTE":MT$(4)"NEUEINGABE":MT$(5)"AUSGABE":MT$(6)"ENDE"MU$"[NDERUNG":MA6:2990A3ĴA1900,1830:1780A21080,BDG$(DA)DG$(DA)("00",1,2(ZLPU)):DG0DG$(DA)"-"DG$(DA)aDG0DG$(DA)"+"DG$(DA):16:"War die Eingabe korrekt (J/N)? ";A$:A$"N"A$"n"1600FL1ı"Wollen Sie noch einen Datensatz eingeben (J/N)? ";A$:A$"J"A$"j"1550A(A$):A1A(MA)3020, $$ Haushalt $$O $ von Thilo Sch|n $i $$ Dezember 1985 $$ $$$$$$$$$$$$$$$$$$$D$(4):D$"PR#3"$DI1000.DT$(DI),DD$(DI),DG$(DI),DS(DI),DS$(15),BS(15),BE(15)8 _____Diskette______ B:en ?":"Haben Sie alles abgespeichert ?";::"";A$:A$"J"A$"j"ė:1080W+ :::q+ =====Men}==========+ ::ML(80(MU$))2:1:ML);MU$;ML)+ MI1MA::MI22:MI;::" "MT$(MI):MI+ 20:"Geben Sie 1 bis ";MA;" ein : ";:"";A$, ):SH39SH39%*^ VT9:BE(I)0Ġ15Y*h J(I1)SB(I1)SBSB1:SH0ď39SH,39J:J*r (I1)SB1:VT:(DS$(I),SB21):VT43VT:I*| 24:"Dr}cken Sie ";A$* * _____Ende__________K+ ::"Wollen Sie das Programm wirklich beendI03:0,79I10:IO), 15:I082:0,4I:I:I264:J044:I,I2J:J,I)6 I044:J20244:I,I2J:J,I:0,222:20,220:22,242:20,244:20,246)@ I1BA:BE(I)0TLTL(BE(I)))J I*T I1BA:SH0:BE(I)0SH(40(TL(BE(I))).5 : ";((BPBE)100.5)100;" DM"=( A$"j"A$"J"ĺD$"PR#3"m( BADSĺ:"Dr}cken Sie ";A$:2950( :"Wollen Sie die Grafik sehen (J/N)? ";A$:A$"N"A$"n"2950( =====Grafik========( QQ(16290):::SB(80BA):VT21:TL0)" 10:$(((BE(I)100.5))):BE$(BE$,((BE$)2))"."(BE$,2):(" "BE$,10);" DM":I:' BE0:BP0:I1BA:BE(I)0BEBEBE(I)' I:I1BA:BE(I)0BPBPBE(I)' I:"Ausgaben : ";(BE);" DM"' "Einnahmen : ";(BP);" DM" ( "Bilanz auf den Drucker ausgegeben werden (J/N)? ";A$:A$"J"A$"j"ĺD$"PR#1"& ::::"Berechnung der Summen vom ";B0$;" bis zum ";B1$& ::I1BA:"Sparte ";(DS$(BS(I))" ..........",14);" ";:BE(I)0ĺ"Einnahmen : ";:2740& "Ausgaben : ";^' BEI:B10:IB0DA:DD$(I)B1$B1I'%Z Iu%d B00B10ĺ" D a t e n n i c h t g e f u n d e n !":W11000:W:2620%n :"Die Berechnung erfolgt ";%x S1BA:".";:IB0B1% BS(S)DS(I)BE(S)BE(S)(DG$(I))G& I,S:(7)::"Soll die Berechnungƍȍ ӵÍ̍à̍؍ȍàȍàӷý ҍӶؠ̠ýȍ ȭ̭ ӷ̠̠̍ȍ ӸàӍŠӴ ҽӹӍԠ čӱؠӱ̬؍̬؍̬؍̬؍؍̠ӱ Ӳ̍ȍѠӹ ӳӍ ȭ̭ Ӵ̠̠̍ȍ ȭ̭ Ӵ̠̠̍Ǡ ı Рӱ ̠ؠƍȠؠƍ ̠ؠƍȠؠ ̠ؠȠؠ ̠ؠȠؠ ̠ؠȠؠ Ӡؠ    e rechnen (A=Alle)? ";A$:A$"<"ıS# A$"A"A$"a"BADS:I1DS:BS(I)I::2600q# BA(A$):BA1BADS2550# :"Geben Sie nun die zu berechnenden Sparten ein:"# I1BA:I;". Sparte: ";:"";BS(I):I$( :"Wollen Sie alle Daten berechnen (J/N=========================#==========#===========";:M" -----Berechnung----l" I115:BE(I)0:BS(I)0:I" ::::1:"Berechnung einzelner Summen":::34,2" BI1DS:" ";BI;" ";DS$(BI):BI::34,DS3"# DS4:"Mit wievielen Sparten wollen SiG$(I))0ĺ11);>! (" "(DG$(I),(DG$(I))1),10)E! I[! DR1ĺD$"PR#3":! :"Bitte dr}cken Sie eine Taste ";:A$:4" "DATUM SPARTE BEMERKUNG GUTSCHRIFT LASTSCHRIFT========#==========#============:A$"<"ı7 ` A$"J"A$"j"DR1:D$"PR#1":" ":2500d j I1DA:(I1)20((I1)20)DR0İ2490t t BADS2450 ~ FL0:II1BA:BS(II)DS(I)FL1 II:FL02470! DD$(I);9(DD$(I)));DS$(DS(I));11(DS$(DS(I))));DT$(I);38(DT$(I)));:(D1BADS23103. 21:EI1DS:EI;"=";DS$(EI),:EIP8 19::EI179:"_";:EIB 4::"Geben Sie nun die auszugebenden Sparten ein :"L I1BA:I;". Sparte: ";:"";BS(I):I V "Soll die ]bersicht auf den Drucker ausgegeben werden (J/N)? ";A$:DR00A3ĴA2300,2510:2250:A21080,1500,1780,2960S-----]bersicht-----z :::1:"]bersicht ausgeben":: "Wieviele Sparten wollen Sie ausgeben (A=Alle)? ";A$:A$"<"ı A$"A"A$"a"BADS:I1DS:BS(I)I::2390 $ BA(A$):BA04A$"J"A$"j"SASF1:SK2030,2090,2140,2180:S_____Ausgabe_______::MT$(1)"]bersicht ausgeben":MT$(2)"Summen berechnen":MT$(3)"DISKETTE":MT$(4)"NEUEINGABE":MT$(5)"[NDERUNG":MT$(6)"ENDE"MA6:MU$"AUSGABE + BERECHNUNG":299"N i c h t s g e f u n d e n !":W11000:W:1970:3:"DATUM:"18)DD$(SF):6:"SPARTE:"18)DS$(DS(SF)):9:"BEMERKUNG:"18)DT$(SF):12:"GELDBETRAG: "18)(DG$(SF))16:"Wollen Sie weitersuchen (J/N)? ";A$:A$"N"A$"n"A$"j"A$"J"222AA(AA$):AA422120M\SF0:SISADA:(DT$(SI),AA)(AA$,AA)SFSI:SIDA[fSI:2200tp+++++Geldbetrag++++z"Geben Sie den Geldbetrag ein : ";AA$:AA$"<"1970AA(AA$):SF0:SISADA:(DG$(SI))(AA)SFSI:SIDASI:22004SF0ĂSI:I23:"Geben Sie die Nummer der Sparte ein : ";AA$:AA$"<"1970j AA(AA$):AA1AA(DS)2070*SF0:SISADA:DS(SI)(AA)SFSI:SIDA4SI:2200>+++++Bemerkung+++++H5:"Geben Sie die Bemerkung ein :":"";AA$:AA$"<"1970RSK(A$):SK1SK41980@:SA1:SK2010,2050,2110,2160Y+++++Datum+++++++++"Geben Sie das Datum ein : ";AA$:AA$"<"1970SF0:SISADA:DD$(SI)AA$SFSI:SIDASI:2200+++++Sparte++++++++ SI1DS:SI;" - ";DS$(SI):00:FL0:DAADA:)=====Suchen========:3:"Nach welchem Kriterium soll der Datensatz gesucht werden ?"::"1 - DATUM":"2 - SPARTE":"3 - BEMERKUNG":"4 - GELDBETRAG"10:"Geben Sie das gew}nschte Kriterium (1-4) ein : ";A$::A$"<"ġ:17801)DG$(LI):DS(LI1)DS(LI):LI:DADA12b34,0:Kl-----[ndern--------~v:::1:"[ndern eines Datensatzes":::34,21960: SUCHEN17:"[ndern des Datensatzes mit ";:A$::A$"<"1920A$" "1930ADADA:DASF:FL1:162568 "Kontrolle: ";(DDDR);" Rest ";DD(DDDR)DRA 110DBd(4)"BLOAD D16V1"=n:"Dividend: ";DD:DD65535110fxH(DD256):LDDH256:771,L:772,H"Divisor: ";DR:DR0DR65535130H(DR256):LDRH256:773,L:774,H768 DD;" : ";DR;" = ";(775)(776)256;" Rest ";(777)(778) Ӡ󠷹 ̺ گڠ㍠̺ گڠɫؠԠحĻĠé嬠®Š٠جٺҩ΍ؠԠح٠Щ٠̺РӠ󠲳Ҡµ ֍٠Щ٠̺Р̠ؠϠ٬٩ٽȠ٠讠ٺٽ̠٠Ϡج٩ٽȠٽ̠ٽРЩٽ嬠®ƹЩٽCA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869"A$$$$$$$$$$$$$$$$$$$ 4$$ Haushalt $$M$ von Thilo Sch|n $f$$ Dezember 1985 $$$$$$$$$$$$$$$$$$$$$D$(4):D$"PR#3"$DI1000.DT$(DI),DD$(DI),DG$(DI),DS(DI),DS$(15),BS(15),BE(15)8_____Diskette______ B:::speichert ?";::"";A$:A$"J"A$"j"ė:1080;+ :::T+ =====Men}==========+ ::ML(80(MU$))2:1:ML);MU$;ML)+ MI1MA::MI22:MI;::" "MT$(MI):MI+ 20:"Geben Sie 1 bis ";MA;" ein : ";:"";A$+ A(A$):A1A(MA)3020, 157*h J(I1)SB(I1)SBSB1:SH0ď39SH,39J:Jp*r 1403,(I1)SB21:VT:(DS$(I),SB41):VT43VT:I*| 24:"Dr}cken Sie ";A$* * _____Ende__________/+ ::"Wollen Sie das Programm wirklich beenden ?":"Haben Sie alles abge82:0,4I:I:I264:J044:I,I2J:J,I)6 I044:J20244:I,I2J:J,I:0,222:20,220:22,242:20,244:20,246)@ I1BA:BE(I)0TLTL(BE(I)))J I)T I1BA:SH0:BE(I)0SH(40(TL(BE(I))).5):SH39SH39*^ VT9:BE(I)05)100;" DM")( A$"j"A$"J"ĺD$"PR#3"Y( BADSĺ:"Dr}cken Sie ";A$:2950( :"Wollen Sie die Grafik sehen (J/N)? ";A$:A$"N"A$"n"2950( =====Grafik========( ::SB(40BA):VT21:TL0(" 10:I03:0,39I10:I-), 15:I0))):BE$(BE$,((BE$)2))"."(BE$,2):(" "BE$,10);" DM":I:u' BE0:BP0:I1BA:BE(I)0BEBEBE(I)' I:I1BA:BE(I)0BPBPBE(I)' I:"Ausgaben : ";(BE);" DM"' "Einnahmen : ";(BP);" DM" ( "Bilanz : ";((BPBE)100.gegeben werden (J/N)? ";A$:A$"J"A$"j"ĺD$"PR#1"q& ::::"Berechnung der Summen vom ";B0$;" bis zum ";B1$& ::I1BA:"Sparte ";(DS$(BS(I))" ..........",14);" ";:BE(I)0ĺ"Einnahmen : ";:2740& "Ausgaben : ";J' BE$(((BE(I)100.5I)B1$B1I%Z Ia%d B00B10ĺ" D a t e n n i c h t g e f u n d e n !":W11000:W:2620%n :"Die Berechnung erfolgt ";%x S1BA:".";:IB0B1% BS(S)DS(I)BE(S)BE(S)(DG$(I))3& I,S:(7)::"Soll die Berechnung auf den Drucker aus)? ";A$:A$"<"2550O$2 A$"j"A$"J"B0$DD$(1):B1$DD$(DA):B01:B1DA:2670$< :"Geben Sie das 1.Datum der Berechnung ein: ";B0$:"Geben Sie das letzte Datum der Berechnung ein: ";B1$$F B00:I1DA:DD$(I)B0$B0I:IDA %P I:B10:IB0DA:DD$(L  {Ff Ry&&& {`     $ L Wۭ        L* LWٺ占ĠƠ栰٠Щ٠ؠԠحĻźנŠӬ嬠àٻٽàٽȠٽ̠ٽΠٺһ΍ؠԠحҠİàðç̠ԠðĠƠ栰٠ԫ٠à̩ؠԠحĻ٬٠íȠԫԫ٠ԫ٠à̩РçŠҠİà٬çŠҭٽȠٽ̠ٽŠĠҠúҩ΍ؠԠح٠Щ٠í̠ԫԫٍЩĠéààçàΧàٽȠ򠨡ҭٽ̠򠨡汮ύύ΍ԍō덫򍭹􍭱àӍӠؠԠƍԍٍŠȍРԍڲҠÍȍҠԍ΍Ҡԍ͍Ҡԍ̍ҠԍȍҠԍ̍ҠԍРԍԠӍ٠Ա̠Ӎ̍Ҡ؍ٍŠԱРԠՠĠԠՠĸŠàՠµؠՠų̲ՠƹڱҠԍȍҠԍ΍Ҡԍ͍Ҡԍ̍ҠԍҠԍ٠ȠčӴÍ٠ŠȬٍàȬٍȬٍٍ̠ō ӵ̠̠򡍠̠͍̠΍̠ȍ ӶҠڲ؍ŠӳӍ ŠȬ؍Ȭ؍ Į Į̍Ȭ؍ͬؠ؍̠ōҠڲ Ӳؠ ӳҠȠҠ̍àӵҠڱ ý Ͱ ȠՠƹΠՠ͠ՠ ̠ՠà򡍪 Ƞՠč̠ՠō ӱؠŠȬ؍Ȭ؍؍̠ōؠǠ Ա Աήϩ Рӱ Ƞؠ̠ؠ Ƞؠ̠ؠ ȠؠΠؠ͠ؠ̠ؠ     DS(DA):DS(DA)DSDS(DA)116507|6:18:DS$(DS(DA))b9:18:"";DT$(DA):(DT$(DA))38167012:18:"";DG:17:70)DG$(DA)((DG)):PU0:ZL(DG$(DA))I110:(DG$(DA),I,1)"."PUI:I10I:PU0DG$(DA)DG$(DA)".":PU(DG$(DA))''''''"::"GELDBETRAG(+/-):":17);"''''''''''"V@21:EI1DS:EI;"=";DS$(EI),:EIsJ19::EI179:"_";:EIT3:18:"";DD$(DA):(DD$(DA))81620^DD$(DA)"<"DADA1:1770hDD$(DA)""DD$(DA)DD$(DA1):3:18:DD$(DA1)r6:18:"";0,1780,2250,2960)-----Neueingabe----5DADA1j":::1:"Neueingabe von Datens{tzen":::34,2,"DATUM (";DD$(DA1);"):":17);"''''''''"::"SPARTE(1-";DS;"):":17);"''''''''''"::"BEMERKUNG:"0617);"'''''''''''''''''''''''''''''''''utige Datum ein : ";DD$:DA0:DSOI1634,0:1290:O_____Neueingabe____::MT$(1)"Neueingabe von Datens{tzen":MT$(2)"DISKETTE":MT$(3)"[NDERUNG":MT$(4)"AUSGABE":MT$(5)"ENDE"MU$"NEUEINGABE":MA5:2990A1İ1550:1500A1108ximal 10 Buchstaben) eingeben.Danach geben Sie ein."H:OI1jOI5:OI;:5:"--> ";DS$(OI)(DS$(OI))101440OI15DS$(OI)""OIOI1:1440:"War alles richtig (J/N)? ";A$:A$"N"A$"n"1430$:"Geben Sie bitte das heA$:A$"N"A$"n"ė:1420On"Geben Sie den Namen der alten Datei ein : ";NA$oxD$"OPEN "NA$:D$"READ "NA$XX$,XX,XX:OI1XX:DS$(OI):OI5:OI;:5:"--> ";DS$(OI):OI:D$"CLOSE "NA$:1470="Sie k|nnen nun die Namen von bis zu 15 Sparten (maDG$(SI):DS(SI):SI) 2D$"CLOSE ";N$:B <-----\ffnen--------o F:::"Neuer|ffnen einer Datei"::34,2 P:"Geben Sie den Namen der Datei ein : ":N$ Z:N$"<"ıd:"Wollen Sie die Spartennamen von einer alten Datei }bernehmen (J/N)? ";:::"Abspeichern einer Datei":u :"Geben Sie den Namen der Datei ein ( = ";N$;" ) :":NN$:NN$"<"ı NN$""N$NN$ D$"OPEN ";N$:D$"WRITE ";N$ DD$:DA:DS:SI1DS:DS$(SI):SI DA01330 (SI1DA:DD$(SI):DT$(SI):LI):LIQ :"Die Datei enth{lt ";DA;" Eintr{ge und wurde am ";DD$;" er|ffnet."` DA01240 LI1DA:DD$(LI),DT$(LI),DG$(LI),DS(LI):LI :D$"CLOSE ";N$:"EINLADEN BEENDET - Bitte dr}cken Sie eine Taste. ";:A$: -----Speichern-----" 340:1080" t-----Laden---------F ~:::"Einladen einer Datei": :"Geben Sie den Namen der Datei oder f}r den Catalog ein : ":N$ N$""ĺD$"CATALOG":1160 N$"<"ı D$"OPEN ";N$:D$"READ ";N$ DD$,DA,DS:LI1DS:DS$( LMT$(1)"Einladen einer Datei":MT$(2)"Speichern einer Datei":MT$(3)"Neuer|ffnung einer Datei":MT$(4)"NEUEINGABE":MT$(5)"[NDERUNG":MT$(6)"AUSGABE":MT$(7)"ENDE" VMA7:MU$"DISKETTE":2990:A41130 `A31500,1780,2250,2960 jA1140,1250,1$$$$$$$$$$$$$$$$$$$$ 4$$ Haushalt $$M$ von Thilo Sch|n $f$$ Dezember 1985 $$$$$$$$$$$$$$$$$$$$$D$(4):D$"PR#3"$DI1000.DT$(DI),DD$(DI),DG$(DI),DS(DI),DS$(15),BS(15),BE(15)8_____Diskette______ B:::            768:L MD;" * ";MR;" = ";(775)16777216(776)65536(777)256(778);f ", Kontrolle ";MDMRq :110r*d:(4)"PR#3":(4)"BLOAD MULT16RLN"vn"Multiplikand: ";MD:MD65535110:771,(MD256):772,MD(MD256)256x"Multiplikator:";MR:MR65535120:773,(MR256):774,MR(MR256)256 :" Zwischensumme + Multiplikand Multiplikator": (DG$(DA))LDG$(DA)DG$(DA)("00",1,2(ZLPU)):DG0DG$(DA)"-"DG$(DA)kDG0DG$(DA)"+"DG$(DA):16:"War die Eingabe korrekt (J/N)? ";A$:A$"N"A$"n"1600FL1ı "Wollen Sie noch einen Datensatz eingeben (J/N)? ";A$:A$"J"A6:18:"";DS(DA):DS(DA)DSDS(DA)11650A|6:18:DS$(DS(DA))l9:18:"";DT$(DA):(DT$(DA))38167012:18:"";DG:17:70)DG$(DA)((DG)):PU0:ZL(DG$(DA))I110:(DG$(DA),I,1)"."PUI:I10 I:PU0DG$(DA)DG$(DA)".":PU''''''''''''''''"::"GELDBETRAG(+/-):":17);"''''''''''"`@21:EI1DS:EI;"=";DS$(EI),:EI}J19::EI179:"_";:EIT3:18:"";DD$(DA):(DD$(DA))81620^DD$(DA)"<"DADA1:1770hDD$(DA)""DD$(DA)DD$(DA1):3:18:DD$(DA1))rA11080,1780,2250,29603 -----Neueingabe----?DADA1t":::1:"Neueingabe von Datens{tzen":::34,2,"DATUM (";DD$(DA1);"):":17);"''''''''"::"SPARTE(1-";DS;"):":17);"''''''''''"::"BEMERKUNG:":617);"'''''''''''''''''''''''e das heutige Datum ein : ";DD$:DA0:DSOI1>34,0:1290:X _____Neueingabe____::MT$(1)"Neueingabe von Datens{tzen":MT$(2)"DISKETTE":MT$(3)"[NDERUNG":MT$(4)"AUSGABE":MT$(5)"ENDE"MU$"NEUEINGABE":MA5:2990A1İ1550:1500rten (maximal 10 Buchstaben) eingeben.Danach geben Sie ein."P:OI1rOI5:OI;:5:"--> ";DS$(OI)(DS$(OI))101440OI15DS$(OI)""OIOI1:1440:"War alles richtig (J/N)? ";A$:A$"N"A$"n"1430,:"Geben Sie bittJ/N)? ";A$:A$"N"A$"n"ė:1420Wn"Geben Sie den Namen der alten Datei ein : ";NA$wxD$"OPEN "NA$:D$"READ "NA$XX$,XX,XX:OI1XX:DS$(OI):OI5:OI;:5:"--> ";DS$(OI):OI:D$"CLOSE "NA$:1470E"Sie k|nnen nun die Namen von bis zu 15 SpaT$(SI):DG$(SI):DS(SI):SI0 2D$"CLOSE ";N$:J < -----\ffnen--------w F:::"Neuer|ffnen einer Datei"::34,2 P:"Geben Sie den Namen der Datei ein : ":N$ Z:N$"<"ı!d:"Wollen Sie die Spartennamen von einer alten Datei }bernehmen (--) :::"Abspeichern einer Datei":| :"Geben Sie den Namen der Datei ein ( = ";N$;" ) :":NN$:NN$"<"ı NN$""N$NN$ D$"OPEN ";N$:D$"WRITE ";N$ DD$:DA:DS:SI1DS:DS$(SI):SI DA01330 (SI1DA:DD$(SI):D:DS$(LI):LIW :"Die Datei enth{lt ";DA;" Eintr{ge und wurde am ";DD$;" er|ffnet."f DA01240 LI1DA:DD$(LI),DT$(LI),DG$(LI),DS(LI):LI :D$"CLOSE ";N$:"EINLADEN BEENDET - Bitte dr}cken Sie eine Taste. ";:A$:  -----Speichern---250,1340:1080( t -----Laden---------L ~:::"Einladen einer Datei": :"Geben Sie den Namen der Datei oder f}r den Catalog ein : ":N$ N$""ĺD$"CATALOG":1160 N$"<"ı D$"OPEN ";N$:D$"READ ";N$ DD$,DA,DS:LI1DS:: LMT$(1)"Einladen einer Datei":MT$(2)"Speichern einer Datei":MT$(3)"Neuer|ffnung einer Datei":MT$(4)"NEUEINGABE":MT$(5)"[NDERUNG":MT$(6)"AUSGABE":MT$(7)"ENDE" VMA7:MU$"DISKETTE":2990:A41130 `A31500,1780,2250,2960 jA1140,1$ $$$$$$$$$$$$$$$$$$$5 $$ Haushalt $$O $ von Thilo Sch|n $i $$ Dezember 1985 $$ $$$$$$$$$$$$$$$$$$$D$(4):D$"PR#3"$DI1000.DT$(DI),DD$(DI),DG$(DI),DS(DI),DS$(15),BS(15),BE(15)8 _____Diskette______ B:                L   S  bN mm. L Wۭ  Wۭ  J L Wۭ LH  Wh L* ` L1 ͯŠ庠͠堠Š򠠠ٳٴٵٶٷٸٹ͠͠͠͠͠͠͠􍠠٠٠Щ٠ȠĻ򠸠ĭؠԠ獠٠٠Щٍԫ̠Ӎ٠٠ЩٍԫȠӍ٠ԫ٠٠٠Щ٠̠נˠөٽȠٽ̠ٽȠٽ̠שٽȠٽ̠ٽΠˠӺҩһ΍ԫ̠Ӎ٠٠ЩٍԫȠӍ٠٠Щ٠̠׍٠ԫ٠Ļ˺נשٽȠٽ̠ٽȠנٽ̠ٽȠٽ̠ٽŠŠӬ׺ҩ΍ؠԠ獠٠٠ЩٍCA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869" ŠȲРԍԠƍȱҠ٠Š荠ҠҰҠÍōҠҰРԍҰ٠ұ̠ō̍Ҡ؍ٍŠұӍŠؠȠȱ٠ȲҠԍٍ ԍűҠÍ̍٠ȍҠҍҠԍ̍ҍӠŲٍѠڲŲ̍٠ȍڲҠҍРȍųҠÍ̍٠ȍҠҍР ӶàӍŠӳРų卪ԠՠĠԍԠՠĸŠàՠµؠՠų卪ŰҠÍ̍٠̍ҠҍҲ Ӎ ӳҠű占Ҡ̍àӵ ý čӴÍ̍à̍̍ȍàȍȍ ӵ̠̠̍ȍ 򍪍̠ؠӠؠ򍪍 ӱ̍̍̍̍ȍ̍ȍҠŰ卪 ӠǠ Ը Ըήϩ Рӱ 䍪̠ؠ 򍪍̠ؠ 荪̠ؠȠؠ 荪̠ؠȠؠ  ٠ĭ٠ŠĠ򺠧àçĠéΠé٠ŠĠ򺠧àΧĠéΠé٭٠Šٺ堰ؠԍ٠Щ٠󍠠Ҡٍ٠ŠؠԍĻ΍ŭŻΠŧ٭٠ŠϠҠč٠Щ٠ÍҠčؠԍĻŠŠͺũ΍ٽ報ٽ堸ٽŠǠҺǻúҩ΍ٽ۳ٽ۲ٽ۱ٽؠԍ٠Щ٠ҍҠčٍ٠Šà፠Ƞٽ̠ؠԍ٠Щ٠ҠٍЩٍҠà፠Ҡč٠Щ٠ҠٍЩٍҠؠԍĻ٠Щ٠±Ҡà፠Ҡč٠Щ٠²ҠؠԍĻŠǠک΍ٽȠٽ̠ٽŠҠĸŠԺؠԠحĻӡŠΠ±²Ω΍ٽ±ٽ²ؠԍŭŠ̠Һ̩΍ؠԠح٠ЩٍҠźٍ٠ 緸ūūŭU,,$$$$b6??~66A!!J66B"*@  ?_nu{{p`~1y0? p*I**I@@@DF????????~od ? {@H>H@@H>H@@@@@@@@  *U*U*U*UU*U*U*U*>A?@@@@@@@@@@@>>ww@@LL@@>>0"A>>L2 J<><>     zz$ $L2L2$H$ d:(4)"BLOAD MULT8RLN"Jn"Multiplikand: ";MD:MD255110:771,MDwx"Multiplikator:";MR:MR255120:772,MR::768:MD;" * ";MR;" = ";(773)(774)256"Kontrolle ";MDMR:110M ۲ݮɠñū۲ݮҍù㧺۲ݮӍú۳ݮɠźū۳ݮҍƠź±±ƺε²۱ݮɠ´ū۱ݮҍú㧺۱ݮӍƺ堨󩠱ºƺηúɠڍźƺζƺź²°Ƹº堨󩠠ƹ堨󩠠ƹú堨󩠱Ƹ ƺ ҭɍƸؠؠؠؠغ堵Ƹƺθ砫򧩻ҠçàħǠҬéλΠҬéŭλΠ۷ݧ͠۷ݻΠŠͩλĮ±Ż²ŻΠ±²λΠŬŧǭλΠ秩ӻɻǠλΠӬɧǭλΠٻŻ󭭭̭ԍ΍λŠ婺ΠҩΠҺ̠ҩĻ̠ҠŻέλΠ姩àٻΠéŭ˭λàٻŻ٠ΠӠנŠӬשΠנˠөΠ׬Ҩשà* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>" <"<"""""""2,""""**<" "">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >"">""""""""""""">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " OL  . ..& y ` ---%"Neues Musikst}ck beginnen:"?MA,0:ZN0:LN1:2090X---Trace ein/aus---mT1T:"Trace ";Tĺ"ein":1490"aus":1490---Lo/Hi-Teilung---H(N256):LN256H---Zeile ausgeben---ADMA3ZN  5((le(n) anf}gen:"*2380*4(AD)1490D>LNLN1:ZNZN1:2090`H---Zeilen editieren---R"Editieren (Start,Ende): ";S,E\SESLN11490fELN1ELN2pZNSE:2290z2380:(AD)LNZN1:1490:1490---Neues St}ckҠºɠ卍ĺƠα𩍍źؠؠ堲°ݠ۱ݍĺ۲ݍƺ۳ݍƱƺβƲàƳƺγŸ۱ݠ۱ݍŹ§۲ݍç۳ݍºĶ㧺۳ݮӍĹƺδĮɠúĮҍŴƧĮӍŷ* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "  ̠ȍ Ӵ̠̠̍ȍàӶ ý Ю Ю Į̍ӵÍ٠ŠٍͬàȬٍٍٍ̠ͬōàӶà΍ ӶàӍŠӳӍԠƍӠՠƍ ӱ٠ŠȬٍٍ̠ō٠ŠȬٍȬٍٍ̠ō ӲӍ ӳ̠̠͍̠̍΍ҠǠ ͱԍ Рӱ Ƞؠ̠ؠ Ƞؠ̠ؠ ȠؠΠؠ͠ؠ̠ؠ Ƞՠč̠ՠō  `r`r$`$r$`$r$`$r `r ` r$`$l l$` `$r&r$`&&`&r&`&l`r``r`H999$9+l+V+H+6+6$6+6lL66 6&60r0`0L0909&909rVHH$H+H66l6V6@6@+@6@   ` LPP P$H(H+@(@$@ @$@(@+Z0Z69r9`$H$+r+`6H60r0`$H$+r+`6H6 0 H$ H f`f`f`f`l`l`l`l`r`r`r$`$r$`$r$`$r `r ` r$`$l l$` `$r&r$`&&`&r&`&l`r`l``r`$`(H+H(l+H+VHP@P9P60+($ $(+0P6P9P@VHV@V960+($(+0V6V9V@VH`P`H`@960+(+069`@`H`PlVlPlH@960+069l@lHlPlV@`@V@P@H@@@9@3@0@@@9@3@0@+@(@$P PP6 6` `6 6L L6 6` `6 6L L6 6` `6 6L L6$6 H$$0$$66 6&6 0$H`H909H9l6l@lLl@ rH  $ l6H6V6H6l+H+V$H$`9H9P9H6H0l6H6VHl @ P @ l$H$VHr$H$`$`(6&60r0`0L0909&909rVHH$H+H66l6V6@6@+@6@   ` L L&L0L99r9`9H$H0H9Hl@l@l@l@l9l6l6l-l+l+l"l l l ll l"l ll ll `9H$9$`9H9`9H9`9H 9$` `6 6L L`$r$`$r$`$r `r ` r$`$l l$` `$r&r$`&&`&r&`&l`r`l``r`r`r$`$r$`$r$`$r `r ` r$`$l l$` `$r&r$`&&`&r&`&l`r``r`H999$9+l+V+H+6+6$6+6lL66 lH@960+069l@lHlPlV@`@V@P@H@@@9@3@0@@@9@3@0@+@(@$P PPPP P$H(H+@(@$@ @$@(@+Z0Z69r9`$H$+r+`6H60r0`$H$+r+`6H6 0 H$ H f`f`f`f`l`l`l`l`r`r`r$@,l6H6V6H6l+H+V$H$`9H9P9H6H0l6H6VHl @ P @ l$H$VHr$H$`$`(`$`(H+H(l+H+VHP@P9P60+($ $(+0P6P9P@VHV@V960+($(+0V6V9V@VH`P`H`@960+(+069`@`H`PlVlPЍδЍЍàҍŠαàҍŠЍӠ卍αРЍРЍԠƍ9I)W1I~ F2$FR$(I)W2I4 :AD1,W1:AD2,W2E (37):2290A Februar 1986q-----------------w:$::255.16384:8D$(4):MA16384BD$"BLOAD TONROUTINE"LD0:F11:F22:ML6:MHML1VPL768:TNPL40:BL43616 `ZN)))ZN":"; 10)(AD);2 20)FR$((AD1));H$ 32)FR$((AD2))R. Tıw8 D,(AD):F1,(AD1):F2,(AD2)B TN:L ---Zeile eingeben---V 5((ZN)))ZN":";` "";Z$,F1$,F2$:ADMAZN3j AD,(Z$):(Z$)ıt I0255:F1$FR$(f ϩ  88 ϥ ǩ `` Ϡ )ii ϥɀ` f` JL Ffynnn n ` ؍Š԰ЍӍԠƍčàűàīűIJÍàIJàŲàIJŲàҍҍР̫翍àŠӍ Ԡؠ ԰̠ ҠРōҍ 獍Š٠ŰĩٍҠԍ ӭ ĠƍIJٍٍ̠Ű čÍà ӭ źϺԠàԍ ԫčԫīԍIJԍIJ  捪 ԍčԍīҠŠ덠àī Š٠ŰĩٍٍŠŰӍ ĩٍٍŠԱ čÍàčӠԲàīԲIJÍàIJӠԳàIJԳàҍҍРŠ翍ӠԠ򍍪 ̍ҍ Ԡ٠IJٍ٠ƍ԰IJٍٍ٠Ӡ԰ 獍٠ԱĩٍҠԍIJ ҭ ԺϺŠàԍ ԫέčԫέīԫέIJԫέIJ ᱺ ӭԠՠ 獍 ԠՠΠՠΠՠ ԠԍѠźϺԍ ӭ  ҭ Ԯ ĠՠIJՠРՠōҠՠƍŠՠ ̠ՠƍ ҭ Ԯ Ǡ   àӵ ý Ю Ю Į̍ӴÍ٠ŠȬٍàȬٍȬٍٍ̠ō ӵҠȍҠ΍Ҡ͍Ҡ̍ ӶàӍŠӳӍԠƍӠՠƍ ӱ٠ŠȬٍٍ̠ō٠ŠȬٍȬٍٍ̠ō ӲӍ ӳҠȍҠ̍àǠ ͱԍ Рӱ Ƞؠ̠ؠ Ƞؠ̠ؠ ȠؠΠؠ͠ؠ̠ؠ Ƞՠč̠ՠō   6H6+$+6+P(P0P9P0 V6 l l6+6P0P0P0P0P+P(P(P"P P PPPPPPPPPPPPH+6+H+6+H+6+H+6+HH((99((HH((99((HH((99((HH((99(( 6$(((( $VHVHVHPPHHVVH`HVHPHVH`HVH6++++ P @ 6 ( (( (`P9(((($V$H$9$+$++$+lV@666 6(`(P(@(0(0 0(0r`H999$9+l+V+H+66$00 D$D(l+V+H6l V H(6(l$V$H6l V H(6( l$ 6 l6 llLHLHLHLHPHPHPHPHVHVHVHVHVHVHVHVHPPHHVVH`HVHPHVHPH`HVHVHVHVHVH+<($  $<(<+<0@6@0@+($  $@(@+@0@6H<H6H0+($  $(+H0H6H<P@P<P60+($ $(+P0P6P<P@0H0@0<06000+0&0$000+0&0$0 00<<<<<<66 0000( $(+0r0P0V0`lr+ "(+066l6r6<06<@HPVxPxHx@x$%$(Υ) $(Τ$%ީ$ȱ ȱLɠ LmLɍɠ LmɍPL]% $(#% %%Lt% %% ɍL7% (ɠi(%%ɠ@}6A}7F}8G}9 #%8 =}6>}7 )w)7`' ΰLLLL  ELɍ` O %% I}άJ}ϠL9ɍLPɢLނɢɠD-%ȱȱ" d}έe}L.# g}έh}L.`ȍΝ L6`` `  40 4LjL]14 L :}6;}7 `ɍLɰɺL O L]% L}έM}Ϡ΍ X}έY}L\1 [}έ\}L\2 ^}έ_}L\3 a}έb}L\ }  L j4LmɍLk΢`- O}έP}L.. R}έS}L./ U}έV}L.0 X}έY}L.1 [}έ\}L.2 ^}έ_}L.3 a}έb}L.LL.~Lb   $LbC}8D}97}68}7 ` EL L LɍLR!LLw `ȑ(,,8逑($3- O}έP}L\. R}έS}L\/ U}έV}L\0  { RPQLAL] { R ְLA X A   ȱ $ C  22?2L2 +ɀ   L,'|ȱ / X  s}tLi} ELLLL0L LhLLLȅL5LLLdLɇL.LLLL}D!H SFU0:L~LLL}L} XLRVK LPM LL] i >?L$L]|L|`|` ΅Ϡ΍||ȱ΍ |||||||  |ȹ |||| LA|HL}           ԮҮʠ ԮԮԠ ԮԠ ɮԠ  ȮԠ  ήԠ ĭ  ֱ ֲϠ Ԯֲ ֲ í  ԮҠ! ԮԮҮʠ"  Ԯıִ ıִ IJԠ ԮIJֲ IJֲ ֱϠ Ԯֱ ıԠԮıֱıֱԮıֲıֲ Ԯıֳ ıֳ ͱԠ ԸήϠ ԮԸΠ ԸΠԱήϠԮԱΠԱΠ ԮͱΠ!ͱΠ"ԮͱΠͱΠԮͱԠͱԠ ԮͱԠ Ԯ͸Π͸ΠԮ͸Ԡ͸ԠԮ͸Ԡ͸ԠͱԠԮŮӮӮҠ­͸ԠԮ͸Π͸Πy0`$(6  JTU( ɠi@T Pީ ʢ$(6`ӵ̍à̍؍ȍàȍàӷý ҍӶؠ̠ýȍ ȭ̭ ӷ̠̠̍ȍ ӸàӍŠӴ ҽӹӍԠƍ̬؍؍̠ӱ Ӳ̍ȍѠӹ ӳӍ ȭ̭ Ӵ̠̠̍ȍ ȭ̭ Ӵ̠̠̍ȍ ȿӵȍРȍàӷý Ǡ ı Рӱ ̠ؠƍȠؠƍ ̠ؠƍȠؠ ̠ؠȠؠ ̠ؠȠؠ Ӡؠ čӱؠӱ̬؍̬؍   CA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869" 卪 塍Ԡ΍РԠ卪 纍Ǡ獠ҠIJǠؠŠנҠ٠¸נؠԠ Ԡԍɠԍؠ֠ōؠ̍͠Ҡ΍ ¸ ˺Π ؠΠѠנ፠٠נթ٠¸٠٠ĠˍӠǠ罾РӠǠ὾򍪍 ˽ 퍪 筍 躍ŠҠŠ ҠԠ蠿ӠȠẠԠ ԠҠ٠ʯΠӠȠΠ占àƠԠڠ򠿍ɠŠ὾îԠȭ ˮҠԮŠ Šͮ ƭ͠% Π ǭ ԮԠϮԠ ԮԠ Ԡ & Ԯ&ɠŭ и̮ Ԯи̠ и̠CA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869" ^L   9 .. .      .. `  d(4)"BLOAD M8RLN"En"Multiplikand: ";MD:MD255110:771,MDrx"Multiplikator:";MR:MR255120:772,MR{768:MD;" * ";MR;" = ";(773)(774)256"Kontrolle ";MDMR:110dĠӠ   ʯ  Š占ÍàƠ占ƍà٠РŲàō ¸ دٺ͠Ҡàͭ占ؠد٠٠ڠ̠ àˠ ¸¸占àƠà占¹àč嫱硍ؠ占¸¸ 獠¹àРijղ ¸ ŠƠ砿ѠĠ὾Ԡ ˠ占占àƠ占؍àРͺӠǠẠѠӍРΧνѠύРʧŠčӠÍϠЍҠǍЍĠӍ 纍ǠǠ捠٠Š獠Ҡ³ҠıΠРˠ占à΍͠ ̢ҠΠԠ٠ōҠ³ѠĠҠƳҠ΍РŧѠԠŽ占Р占ŠŠŠ岠ԠҠµàźŠРԠ ʯά ٠ō̍àč¸àҠ殍֠ Ţ٠ōҠ³ǰҠƳҠΠ占РŧŽ占ѠԍРק׽Šǰů׽Ҡµà׺נҠĸŠҍΠ򭍠Р,L:775,M:776,H :768y DD;" : ";DR;" = ";(777)(778)256(779)65536;" Rest ";(780)(781)256(782)65536 "Kontrolle: ";(DDDR);" Rest ";DD(DDDR)DR 110Dd(4)"BLOAD D24V2"@n:"Dividend: ";DD:DD16777215110xH(DD65536):MDDH65536:M(M256):LDDH65536M256:771,L:772,M:773,H"Divisor: ";DR:DR0DR16777215130 H(DR65536):MDRH65536:M(M256):LDRH65536M256::774  ȍ ӵ̠̠̍ȍ ӶàӍŠӳӍԠƍӱ̍ȍ̍̍ȍ̍̍ ӲӍ ӳҠ̍àӵ ý čӴÍ̍à̍̍ȍàȍǠ ͸΍ Рӱ ̠ؠ ̠ؠ ̠ؠȠؠ ̠ؠȠؠ ̠ؠ Ӡؠ   퍪 ؍ ؍؍؍ؠΠ؍ؠՠ荠ի堲 򭍪 ٠Ӱٍٍٍ٠΍ӠӰ  ؠ¸ԠɠֺҠĠ  Ү Ѡҍؠ΍ ӠҠ὾򡍠РàѠàˍàҠ򽾠 䭍  ō ͠٠ōҠ³РĴ򍪍 ¸ 捪 亍ӠҠԠ͠ҠԠ àðijĠ捠٠ijĠ˫Ҡ³䍠Рı箍 ˺àРĸ Ҡĭì κàԠð덠ðčРàŠàӍ 䍪 衩àҠàˠΠ占Рԍ ΠҠ̧̠ŠĠ彾Π躠Ѡΰ򍪍 ì κΠҠİÍРѠÍĠƍàӍ ɠΰɠРӧ堨ͯѠŠР֧ŠŠĩŠҠŠẠɠΰŠРԧ蠿Š΍ҠΠẠɠ΍ ΰҠԠԠРýˍѠÍĠƠ占РէŠҍҠԍɠΰҠР˧˭Šɠ占Ҡɠ̍à̍ؠ͍à͍٠占ȍàȠ荠àӴ ؠ̍٠͍ȍà̠ ӴàӍŠӳӵӍԠƍ ؠӲ̬؍̬؍̬؍؍̠Ӳ ͍̍ȍѠӵ Ӎ ȭ̭ͭȭ̭ͭ ӳ̠̠̠͍̠ȍ̠̠͍̠̍ȍ ÍҠǠ IJ Рӱ ̠ؠ͠ؠȠؠ ̠ؠ͠ؠȠؠ ġ̠ؠ͠ؠȠؠ ̠ؠ͠ؠȠؠӠؠ čӱ   ML   N mm. `ɠΰҠµ占ҠIJҠµ占ؠؠԠ򠦍ؠĠ؍ؠ ᢍ٠ΰ٠٠٠֍ŠҠŸ占Р 庍ԠРà̍Рà͍ĠƍРŰč͠Í̠Ӎ ͭ ΰҠǠẠΠԠӠؠıРŠ򠿍ѠĠ὾獠РѠŠ ŠİĠ٠ѩӠũ ý ؠѠĠ占àɠ٠Ạ Ѡı፠٠ ѠıɠР᧠àıРӠıĠƠẠ ֽ  Ġ٠͍Ѡ͍Š٠Ġ䠰Š͠٠ŠĠİؠ󠱍àΠ򭱩Π ÍàΠ占ƠӠ򠿍àڠӍ  Ų獠ڠ栰΍ؠÍà٠٠ΠҠĵĠ ٠䭰à ѠŲ፠ؠؠ¸¸๹ҠԠ荠٠堿ѠŲҠРù򡍪 硍ؠ΍Ԡֺ֠ҠĠ   Ҭ ͭ Ҡĵ΢ 䭰Íà 䭍 Π  kL    ? . . . . .8     `  ̍à̍̍ȍàȍȍ ӶàӍŠӳӍԠƍӱ̍ȍ̍ȍ̍̍̍ ӲӍ ӳҠȍҠ̍ Ӵ̠̍àӶ ý čӵÍǠ ͸΍ Рӱ ̠ؠ ̠ؠ ̠ؠȠؠ ̠ؠȠؠ ̠ؠ Ӡؠ   荪 򭍪  ͠Ҡ٠ҠÍҠĹ占ѠĠ򩍪  РԠð덠ҩ٠ѠĠ占Р²͠Ѡ͠፠РѠԠ٠占ŠР卪 РàŠàԠǠ˿ɠà፠Ǡ躠˭獠٠讍ҩ٠ٍҩٍҠàˠ΍à٠Π٠ΫҠǠ̠Ѝ ĠҠ٠Р٠ҩ٠堿ѠŠ὾ðàԠ̠Ǡ占РĸŠ庠ҍ ͭ ϠӳԠ΍ŠҠԠƍōŠҠî͠΍٠Ҡ٠ҫҸҠҠẠҍ䍠 ҠӍ ǠԠ̠Ҡᠿ獠Ҡ ᢍǠ٠占ҠùŠҠñ򠱠荠 ҠŰíѠҴɫ占ԠðƠ̠Ҵ 嬠㍠Р䠿àҠ占ӠҸҴР䠿àҠàҠŸ̍ ҠǍҠŸ̠쿩ҠĸŠҍǍàԠ̠àԠ󠱲Ӎ ӠγؠẠ䭍ާҠµàޠγҠµà٠󩍠٠Šΰ򍪍 ҺĤŠˠ؍̠ˍˠҠķà̠ˠ占ɠˠˠҠķà؍Ҡµà̠ˠ占βРα٠͍ŠαҠŸ̍αҠҠҬ獠٠ҩٍѠĠ占̠βɺؠҠµ占٠İİİİ鍠;(777)(778)256;I ", Kontrolle: ";(DDDR);" Rest ";DD(DDDR)DRR 110DS$d(4)"BLOAD DIV16":(4)"PR#3"In:"Dividend: ";DD:DD65535110rxH(DD256):LDDH256:771,L:772,H"Divisor: ";DR:DR0DR65535130H(DR256):LDRH256:773,L:774,H:768 DD;" : ";DR;" = ";(775)(776)256;" Rest "  ML   Nn mm `ŠР卪 纍ŠҠ٠Πν占٠Ϋͺ٠ԍРԠ    庍Ҡ٠ҠÍҠĠ占Р὾占ѼӻŨ庠ΨλغλԍΨجƨةغث̠ؠӍĮ͠ϻӠĬՠԮŪλҠجάӬ̻΍ŨԩԍΨ짩ŨΨΩŨ󺠧Ψөλ̠Π±³ؠ²̠³̍Ҡ؍؍Š²РàӍ³ؠԠƍ±ӢҠԍҠÍȍҠ±̍Ҡ±Рԍ ڲĢҠԍҠÍȍҠ±̍Ҡ±ѢҠԍҠÍȍҠ±̍Ҡ±Рԍ ڱ ҽӹӍԠՠĠԠՠĸŠàՠµؠՠų卪 ڱҢҠԍҠÍȍҠ±̍ҍҠڱ 迍ӵÍ̍à̍؍ȍàȍàӷý ҍӶؠ̠ýȍ ȭ̭ ӷ̠̠̍ȍҠڲ ӸàӍŠӴҠӱؠӱ̬؍̬؍̬؍̬؍؍̠ӱ Ӳ̍ȍѠӹ ӳӍ ȭ̭ȭ̭ Ӵ̠̠̍ȍ̠̠̍ȠǠ ֱ ֱϩ Рӱ ̠ؠƍȠؠƍ ̠ؠƍȠؠ ̠ؠȠؠ ̠ؠȠؠ ̠ՠčȠՠō Ӡՠƍ   ̍ ӲӍ ӳҠ̍àӵ ý ̍ӴÍȍà̍ȍ ӵҠȍҠ̍ ӶàӍŠӳӍԠƍǠ ͸ԍ Рӱ ̠ؠ ̠ؠ ̠ؠȠؠ ̠ؠ Ӡؠ ӱ̍ȍ̍  ʆנ Ljd d7 W۠ϩЅ ,0 ,ת \ۊ ^ \ۊ @ \ۤЭ 2H h2`, {I$! d$`$Fנ L gh΄F eHɃ$0ȱuȱv \c,0ɲɃ e e e Ƀ \cLԍ] :LLcةt` :L* -d妸$ cB Y՘8,e c Lޅi mՈ8`  !P" a {)_"٨`0 :)L}8` d$0 W WۢW \ La \Lԥ 8܅e ?dO` : : BcEANJ d(`1` : Lԥiejit݆ijLӥ2 ӥBeij?ijL, ڦPQ` U)_Uf0Kf0SVf0Tf0IL΅ Ƀ )_`,0ij l֥LԠȱuȱvuv㥸ܥȄ لՅI8eՅ8 Lfa LcЩ Lc$ -d -d$ӱp a{)_$ -d -d fbeH$0-) bh  ن$0چ ?dLah ` : : BcERSETZEN ? J/N, E - ENDE, A - ALLE: ?VERBOTENER DELIMITERN`O `)_N3 ``ɠ`Ʌ)_C2 LLdƠ `8`ɍȹ)I ʠ .Ն ʆ c-,  cF8fFF cF wcPQ ֥T_btf Lstop``Lt```Lt`:;,0ɶe /:`fe: SԠ`<=`>?<>=?}}tw}`,}'}` WIRD ZU LANG! E - ENDE, W - WEITER: PROGRAMM WIRD ZU LANG! BREAKE ٽ ĠÍѠIJà؍؍àIJà؍ӍΠՠԍԠƍ孍ؠ򠨱ؠ󩍠٠ٰҩ٠䮠婍Ω٠ٍ؍ŠٰؠҠҠҠĠ٫ؠΠΠ荠Ҡč٠٠֠Ӎ ŠӍ  庍àԠǍɠōРԍ ҩ ҩ  卪 ٠غ٫積ŠǠ砿Ԡ֠Ạ 碍ٍӠİǠР⺠ ѠŠ὾獠Р򠧺 ѠŠ὾ı٠Šİ쬍  ǠŠı٠Ġ֠碩İҩ٠ѠŠ占Р ӠǠL   7&. .  ]8    ..  ]` Wۭ     Wۥ  L Wۭ   Wۭ  L* LW 7L N mnn`ԍύͮˍǍǍe ke, eΤυijLȸ"p,ep,:`$0L e e`u`/:`fe: SԠ`<=`>?<>=?}}tw}`,}'}` WIRD ZU LANG! E - ENDE, W - WEITER: PROGRAMM WIRD ZU LANG! BREAKEM256::774,L:775,M:776,HY :"Dividend und Quotient Dividend minus Rest":768 DD;" : ";DR;" = ";(777)(778)256(779)65536;" Rest ";(780)(781)256(782)65536; ", Kontrolle: ";(DDDR);" Rest ";DD(DDDR)DR 110D$d(4)"BLOAD DIV24":(4)"PR#3"Ln:"Dividend: ";DD:DD16777215110xH(DD65536):MDDH65536:M(M256):LDDH65536M256:771,L:772,M:773,H"Divisor: ";DR:DR0DR16777215130 H(DR65536):MDRH65536:M(M256):LDRH65536  ӍԠƍ̍ ӲӍ ӳ̠̠̍ȍ Ӵ̠̍àӶ ý ̍ӵÍ̍à̍̍àӶàȍ ӶàӍŠӳԠǠ ͸ԍ Рӱ ̠ؠ ̠ؠ ̠ؠȠؠ ̠ؠ Ӡؠ ӱ̍ȍ̍  CA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869"̍Ҡ؍ٍŠԱРàӍŠؠԠƍ ̬؍Ҡԍ؍̠ɠٱŲؠҠ̲ؠ̬؍Ҡԍ؍̠ٱð̠ٳԠðٲð̠ٲԠðٳРԍԠō٠Ա̠ō ַàӍŠֶРű卪ԠՠĸŠàՠµؠՠų̲ՠƹűؠ̬؍Ҡԍ؍̠ؠ Í̍à̍ؠ͍̍à͍٠͍ȍàȍàַؠ̠̍٠͍͠Ƞȍ à̠ҠŲ 崠ؠֵ̬؍̬؍؍ֵ̠ ӍҠű ֶ̠̠̠͍̠ȍ̠̠͍̠̍ȍҠű Ӎ͠ؠȠؠӠؠ ֱؠֲ̬؍؍ֲ̠ ؠֳ̬؍Šִ؍ֳ̠Ӡ 􍪍֠Ǡ ֲ ֲϩ Рֱ̠ؠ͠ؠȠؠ̠ؠ͠ؠȠؠ̠ؠ͠ؠȠؠ̠ؠ    <L .m`A)31490&---St}ck listen---G"Listen (Start,Ende): ";S,E]SESLN11490qELN1ELN2ZNSE:2290(16384)1751490(T)(16384)160Ĺ16368,0:16384,128 :1490---Zeilen anf}gen--- ZNLN1:"ZeiD216,0:1490&N---DOS-Fehler---3X216,0:Tb"DOS-Fehler Nr. "(222)(7)^l1490wv---St}ck spielen---"Spielen ab Zeile: ";ZNZNLN11490NMAZN3:2260ML,L:MH,H:PL"Stop in Zeile ";(((ML)256(MH))M---Musik-File speichern---(1870J"Speichern: ";F$:F$""1490iD$"BSAVE"F$",A"MA",L"LN3z216,0:1490---File anh{ngen---1870&"Anh{ngen: ";F$:F$""14900D$"BLOAD"F$",A"MALN33:LNLN((BL)256(BL1))311500 ^:'h---DOS-Operationen---2r1870H|"DOS-Befehl:";A$XA$""1490bD$A$s216,0:1490---Musik-File laden---1870"Laden: ";F$:F$""1490D$"BLOAD"F$",A"MALN((BL)256(BL1))3216,0:1490rogramms" :">";' 16368,0:A$9 A$(4)1640L A$(12)1700_ A$(19)1760q A$(1)1810 A$"S"1910 A$"L"1990 "A$"A"2070 ,A$"E"2120 6A$"N"2190 @A$"T"2220 JA$"?"1360TA$(27)ĺ(7);:ck spielen"/ "........Musikst}ck listen"R "........Zeile(n) anf}gen"w "........Zeile(n) editieren" "........Neues St}ck beginnen" "........Trace ein/aus" "........Diese Informationen" "......Ende des PSCHMIDT "+ 29:" FEBRUAR 1986 ": <9:22):B F:T P"Befehle:":v Z"...DOS-Operationen" d"...Musik-File laden" n"...Musik-File speichern" x"...Musik-File anh{ngen" "........Musikst},72,680  64,60,57,54,51,48,45,43,40,38,36,34Z  32,30,28,27,25,24,22,21,20,19,18,17  16,15,14,13,12,12,11,10,10,9,9,8 FR$(0)"---" MA,0:LN1 : 9:22): 9:" MUSIK-EDITOR " 9:22): (9:" VON: JOERG FR$(255)& jI0255:FR$(I)"???":3 t:I15? ~I$(I)T J6571:A$(J)h A:FR$(A)I$A$ A$"B"A$"E"1200 A:FR$(A)I$A$"#" J,I  255,240,228,216,204,192,180,172,160,152,144,136  128,120,114,108,102,96,90,86,80,76F ------------------. Musik-EditorE von J|rg SchmidtZ Februar 1986q-----------------w:$::255.16384:8D$(4):MA16384BD$"BLOAD TONROUTINE"LD0:F11:F22:ML6:MHML1VPL768:TNPL40:BL43616 `     L `  { . . . . . {8      L{    0 J  ,,L* LW 256(778);% <", Kontrolle ";MDMR/ F:20M0% (4)"BLOAD M16RLN":(4)"PR#3"p"Multiplikand: ";MD:MD6553520:771,(MD256):772,MD(MD256)256"Multiplikator:";MR:MR6553530:773,(MR256):774,MR(MR256)256(768 2MD;" * ";MR;" = ";(775)16777216(776)65536(777) Ҡ獠Рδβ٠Ҳı 򿍠ŠζРѠιԠҠ Ҡ獠РδζРЍЍιЍЍЍԠҠ Ҡ獠РγεРЍЍθЍЍЍЍγЍЍ ٍŠβ٠ղѠιР Ѡι忍ԠҠư Р؍ŠαؠձѠθР Ѡθ忍ԠҠ Ҡ獠Рγαؠұı 򿍠ŠεРѠθ㍪ Πձ ҠҠ ҍҍұıղ ҠҠ ҍҍҲıҠؠ٠ ղҠΠ Ġ ɠĠ 占̠ Íà̍àٍàȍӠٍĠӠ卍  ̠ՠ Ƞՠ荍ĠՠðҠՠð򍍪 ٠٠̩٠ѠĠ 占ҍٍ̩٠ ձٍ̩٠ 詮  Ҡՠձՠ ղՠ Ҡՠұıՠ Ҳıՠ ժ Ǡ 溍 ̯         CA :"DR. ALFRED HUETHIG VERLAG":"HEIDELBERG POSTF. 102869" ӵ̠̠͍̠̍΍̠ȍ ӶàӍŠӳӍԠƍٍٍٍ̠ͬō ӲӍ ӳҠȍҠ̍àӵ ý čӴÍ٠ŠȬٍàȬٍȬٍٍ̠ō ̠ՠÍ Ƞՠč̠ՠō Ӡՠƍ ӱ٠ŠȬٍȬٍٍ̠ō٠ŠȬٍȬٍ Į Į̍ȬǠ ͱ΍ Рӱ Ƞؠ̠ؠ Ƞؠ̠ؠ ȠؠΠؠ͠ؠ̠ؠ ȠՠƹΠՠ͠ՠ  lich, Sonderzeichen zu"'"drucken."U:"Abgeschaltet werden die Zeichens{tze""durch 'PRINT CHR$(27);CHR$(36)'.":"Weiter mit beliebiger Taste ";:A$::Tastatureingabe::"Bitte w{hlen Sie ";W$:W(W$):W1WOt aus Peeker 7/85."?R:"Die Zeichens{tze bleiben im Image-"g\"writer, bis Sie ihn ausschalten."f:"Mit 'PRINT CHR$(27);CHR(39)' k|nnen Sie"p"diese Zeichens{tze anw{hlen."z:"Mit Appleworks oder anderen Programmen""ist es so m|g((251));" -> ";ZF$(((251)))5(768)165Č768:SD$;"BRUN FONT.CONVERT":Y :vInformationen und Hilfe| :*:"Informationen":4"FONT.LOADER }bertr{gt Zeichens{tze aus">"DOS Toolkit oder dem BITEDITOR von"H"Joachim Klam):f}r BSAVE-L2304256(W1)1280(251)M32513,(250):32517,(251)y32537,234:D$"BSAVE";ZZ$;",A";A;",L";L:Zeichensatzkonvertierung::"Zeichensatzkonvertierung":"Konvertierung des Zeichensatzes:":ZF$"~" 0:#:Font-Datei erstellen)D:ON:"Zeichensatzdatei abspeichern"yX:"1. BRUN-f{hige Font.Loader-Datei"b"2. nur Zeichensatz abspeichern"lO2:2260v:"Ende mit ":"Dateiname: ";ZZ$:ZZ$""ı A32512256(W150)ĺ" (invers)";"(27)"Y"::16):1800::16)Y(27)"'";:1800:(27)"$"_w16):1820::16)(27)"'";:1820:(27)"$"::D$"PR#0"::I3279:(I);::" " bis "O"I80126:(I);&::"P" bis den!":/J"Bitte eine Taste dr}cken ";:A$:XT:"Imagewriter bereit? (j/n) ";:W$o^W$"j"W$"J"ıhW$::"Zeichensatz wird }bertragen..."r32538:|:Probeausdruck::D$"PR#1"16)(27)"X"(14)ZS$(15);(2 ZZ$(5)ı1 ZZ$""ė:D$"CATALOG":1500L D$"BLOAD"ZZ$",A$8000"Z ZS$ZZ$:` : Zeichensatz in Druckerspeicher laden ": ,:"Zeichensatz zum Drucker }bertragen" 6ZS$"(kein Zeichensatz)"1620@:"Kein Zeichensatz vorhan)": x:& Darstellungsart {ndern, :A 250,((250)):G :c Zeichensatz-File ladeni : :"Zeichensatz von Diskette laden": "Catalog durch Eingabe von " "Zur}ck zum Men} mit " :"Zeichensatzname: ";ZZ$abspeichern"/ "7. Zeichensatzkonvertierung"T "8. Informationen"::"9. Ende"b O9:2260o (W9ė: 2W1380,1430,1470,1580,1690,1870,2010,2090 <1150 F: PZeichensatzformat {ndern Z: d251,((251)) nZS$"(kein Zeichensatz; (250)0ĺ"normal"1 (250)1ĺ"invers"V :"1. Zeichensatzformat {ndern"w "2. Darstellungsart {ndern" "3. Zeichensatz von Diskette laden" "4. Zeichensatz zum Drucker }bertragen" "5. Probeausdruck" "6. Zeichensatzdatei $8000" `:) jMen} und Statusanzeigen/ t:H ~(21):D$"PR#0"::j "FONT.LOADER":"===========" :"Zeichensatz-Utility f}r den Imagewriter" :"Zeichensatz : ";ZS$ :"Zeichensatzformat: ";ZF$((251)) "Darstellungsart : " FONT.LOADER)Carl Frieder Mahr319869:NInitialisierungT:g$D$(4):768,0.A2C(1101)6(1088)08ZS$"SONDERZEICHEN.FONT"BZF$(0)"BITEDITOR":ZF$(1)"DOS Toolkit"LD$"BRUNFONT.LOADER.OBJ" VD$"BLOAD"ZS$",A! ! ! ! !!!!!!!!!OL Ffy&&&`!ĠÍҠԍҠԍÍҠԍɢҠԍ 獪 ōҍ ̠Ԡ àĠ 占àī àī̍Բ  򭍪 Ҭ Һ ̍ԍҍԲԍŠč ҭ  ԠҠÍ ԍčԍī 獪 ؠԍ 䍪 󍍠ؠıؠĭŠԲà ㍠ؠIJŠԲÍҠ ԲàٍӍ ՠ³ĭ IJՠðĭ ӭԭ卪 ԠؠؠӍؠӭ ԠՠčҠՠŠ ȠՠĠՠΰՠƸ Ǡՠƹ Ԡՠı  Ӡՠ獍 ҭ ӭԠՠ 獍 ú ٠ՠà􍍪 č ɬ ɫ ɍǠư Šՠ ̠ՠƍĠՠàՠ̠ՠ ̍Ҡՠ ҍ Ԯ " """""""""   ŠȬٍàȬٍȬٍٍ̠ō ӶàӍŠӳӍԠƍٍȬٍٍ̠ō ӲӍ ӳҠȍҠ΍Ҡ͍Ҡ̍ Ӵ̠̠̍ȍàӶ ý čӵÍ٠̠ՠÍ Ƞՠč̠ՠō Ӡՠƍ ӱ٠ŠȬٍȬٍٍ̠ō٠ŠȬٍȬٍ Į Į΍ȬǠ ͱ΍ Рӱ Ƞؠ̠ؠ Ƞؠ̠ؠ ȠؠΠؠ͠ؠ̠ؠ ȠՠƹΠՠ͠ՠ"" " "